Restored code lost in merge.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index da0f6166b91504e0157c6347fb63be5e373a8ac9..cfd76c59c6f7cadaae0e04b2f4151db4921163b2 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1207,7 +1207,9 @@ The list should be sorted most significant first."
   ;; Create compact status report for WIDGET.
   (let* ((parent (widget-get widget :parent))
         (state (widget-get parent :custom-state))
-        (entry (assq state custom-magic-alist))
+        (entry (assq state (if (eq (car parent) 'custom-group)
+                               custom-group-magic-alist
+                             custom-magic-alist)))
         (magic (nth 1 entry))
         (face (nth 2 entry))
         (text (nth 3 entry))